* src/eval.c (signal_quit_p): Fix the usual int/Lisp_Object mixup

diff --git a/src/eval.c b/src/eval.c
index ddf7e703fc2eb05b363d02b8292163ab9ca80c89..48104bd0f45927a977dbb1222a3a02319311c39a 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -2033,9 +2033,9 @@ signal_quit_p (Lisp_Object signal)
   Lisp_Object list;
 
   return EQ (signal, Qquit)
-    || (Fsymbolp (signal)
+    || (!NILP (Fsymbolp (signal))
        && CONSP (list = Fget (signal, Qerror_conditions))
-       && Fmemq (Qquit, list));
+       && !NILP (Fmemq (Qquit, list)));
 }
 
 /* Call the debugger if calling it is currently enabled for CONDITIONS.